Software of the Month Club (Business) 1997 July/Software of the Month Club - Business (Volume 239) (July 1997).iso/pc/code/shared.dxr/04474_Universal InterFace Controls -2 -.ls

Text File | 1996-02-21 | 7.5 KB | 191 lines

global gWorld, gStates, gOBJECTS, gHotRects, gScreenState, gCursorList, gTimerList, gKeyRef, cNullCast, cNullQTmovie, NULLRECT, gSpritePropTypes, gQTproplist, cNUllCharmovie, sPICTSPRITE, sQTSPRITE, sCURSORSPRITE, sCPSprite, sQTCharSprite, gUnvObjects, gAngles, gLastCursor, gPlayingQT, gScreenWidth, gScreenHeight, gCurKeyList, gTransMovieName, gAnimationObjects, gDeathRow, gLastKeyList, gKeyFrameSound, gEnvironmentSound, gGlobal, gKeyFrameSoundMode, gHaveNavs, gNextEnvLetter, gNextDIRFile, gMIDIPlayTRUE, gInitalized, void, xNAVXOBJ, xCURXOBJ, gCPU, gfileSep, gRootPath, gHDpath, gXobjs, gXOBJPath, gCDpath, gCDName, gTempHotRects, gCreditTemplist, gsoundLevel

on ADDUnvOBJECTS
  set addthese to []
  set NumC to count(gUnvObjects)
  repeat with X = 1 to NumC
    if getaProp(getaProp(gOBJECTS, getAt(gUnvObjects, X)), #Aquired) = #true then
      add(addthese, getAt(gUnvObjects, X))
    end if
  end repeat
  ADDObjects(addthese)
end

on DELUnvOBJECTS
  set addthese to []
  set NumC to count(gUnvObjects)
  repeat with X = 1 to NumC
    if getaProp(getaProp(gOBJECTS, getAt(gUnvObjects, X)), #Aquired) = #true then
      add(addthese, getAt(gUnvObjects, X))
    end if
  end repeat
  Delobjects(addthese)
end

on playClick
end

on PopUpMenu ObjRef
  set obj to getaProp(gOBJECTS, ObjRef)
  if not voidp(getaProp(getaProp(obj, #sound), #down)) then
    playSound(getaProp(getaProp(obj, #sound), #down), #keyframeCast, #NOW)
  end if
  set the castNum of sprite getaProp(obj, #spriteNum) to getaProp(getaProp(obj, #cast), #down)
  updateStage()
  repeat while the stillDown
    do(getaProp(getaProp(obj, #action), #WhileDown))
  end repeat
  if (getaProp(obj, #CurRect) <> 1) and (getaProp(obj, #CurRect) <> #empty) then
    repeat with X = 1 to 3
      set the locV of sprite sCURSORSPRITE to -20000
      set the castNum of sprite sCURSORSPRITE to getAt(getaProp(getaProp(obj, #cast), #menu), getaProp(obj, #CurRect))
      set the loc of sprite sCURSORSPRITE to getaProp(getAt(getaProp(obj, #PopMenu), getaProp(obj, #CurRect)), #loc)
    end repeat
  end if
  set the castNum of sprite getaProp(obj, #spriteNum) to getaProp(getaProp(obj, #cast), #UP)
  set the castNum of sprite sCURSORSPRITE to cNullCast
  set the loc of sprite sCURSORSPRITE to point(-2000, -2000)
  updateStage()
  if not voidp(getaProp(getaProp(obj, #sound), #UP)) then
    playSound(getaProp(getaProp(obj, #sound), #UP), #keyframeCast, #NOW)
  end if
  if not voidp(getaProp(getaProp(obj, #action), #UP)) then
    do(getaProp(getaProp(obj, #action), #UP))
  end if
  if getaProp(obj, #CurRect) <> #empty then
    if not voidp(getaProp(getAt(getaProp(obj, #PopMenu), getaProp(obj, #CurRect)), #action)) then
      do(getaProp(getAt(getaProp(obj, #PopMenu), getaProp(obj, #CurRect)), #action))
    end if
  end if
  cursorandupdate()
end

on CursorSave
  set H to the mouseH
  set v to the mouseV
  set obj to getaProp(gOBJECTS, #SaveOBj)
  set aRectNum to InUnvRect(getaProp(obj, #PopMenu), H, v)
  if aRectNum <> #empty then
    set the castNum of sprite sCURSORSPRITE to getAt(getaProp(getaProp(obj, #cast), #menu), aRectNum)
    set the loc of sprite sCURSORSPRITE to getaProp(getAt(getaProp(obj, #PopMenu), aRectNum), #loc)
    updateStage()
    if aRectNum = 1 then
      set VolObj to getaProp(gOBJECTS, #Volumeobj)
      set smallRectNum to gsoundLevel + 1
      set the castNum of sprite getaProp(getaProp(gOBJECTS, #SaveOBj), #spriteNum) to getaProp(getaProp(getaProp(gOBJECTS, #SaveOBj), #cast), #VolON)
      set the castNum of sprite sCURSORSPRITE to getAt(getaProp(getaProp(VolObj, #cast), #menu), smallRectNum)
      set the loc of sprite sCURSORSPRITE to getaProp(getAt(getaProp(VolObj, #PopMenu), smallRectNum), #loc)
      updateStage()
      UnvVolumeLoop(H, v)
    end if
  else
    set the castNum of sprite sCURSORSPRITE to cNullCast
    set the loc of sprite sCURSORSPRITE to point(-2000, -2000)
    updateStage()
  end if
  setaProp(obj, #CurRect, aRectNum)
end

on SetgHotrects OBJS
  set rects to resetghotrects(OBJS)
  if rects <> 0 then
    exit
  end if
end

on UnvVolumeLoop H, v
  set VolObj to getaProp(gOBJECTS, #Volumeobj)
  set aRectNum to InUnvRect(getaProp(VolObj, #PopMenu), H, v)
  set the castNum of sprite getaProp(getaProp(gOBJECTS, #SaveOBj), #spriteNum) to getaProp(getaProp(getaProp(gOBJECTS, #SaveOBj), #cast), #VolON)
  repeat while (aRectNum <> #empty) and the stillDown
    if aRectNum < 9 then
      set the castNum of sprite sCURSORSPRITE to getAt(getaProp(getaProp(VolObj, #cast), #menu), aRectNum)
      set the loc of sprite sCURSORSPRITE to getaProp(getAt(getaProp(VolObj, #PopMenu), aRectNum), #loc)
      if (aRectNum - 1) <> gsoundLevel then
        set gsoundLevel to aRectNum - 1
        setSoundVolumes()
        beep()
      end if
    end if
    updateStage()
    set v to the mouseV
    set H to the mouseH
    set aRectNum to InUnvRect(getaProp(VolObj, #PopMenu), H, v)
  end repeat
  set the castNum of sprite getaProp(getaProp(gOBJECTS, #SaveOBj), #spriteNum) to getaProp(getaProp(getaProp(gOBJECTS, #SaveOBj), #cast), #down)
end

on InUnvRect Hotrects, H, v
  set nHotr to count(Hotrects)
  repeat with X = 1 to nHotr
    if inside(point(H, v), getaProp(getAt(Hotrects, X), #HotRect)) then
      return X
    end if
  end repeat
  return #empty
end

on ShowCredits
  set obj to getaProp(gOBJECTS, #TheCredits)
  set the loc of sprite getaProp(obj, #spriteNum) to getaProp(obj, #loc)
  set the castNum of sprite getaProp(obj, #spriteNum) to getaProp(getaProp(obj, #cast), #HI)
  updateStage()
  set gCreditTemplist to [#Hotrects: gHotRects, #timer: gTimerList, #VideoLoc: the loc of sprite sQTCharSprite, #VideoRate: the movieRate of sprite sQTCharSprite]
  set the movieRate of sprite sQTCharSprite to 0
  set gHotRects to [:]
  sort(gHotRects)
  set gTimerList to [:]
  sort(gTimerList)
  set the loc of sprite sQTCharSprite to point(-2000, -2000)
  set the HotRect of the CreditClose of gOBJECTS to the PDAHOTRECT of the CreditClose of gOBJECTS
  set the hotState of the CreditClose of gOBJECTS to #PDA
  ADDObjects([#TheCredits])
end

on ShowUnvCredits
  SuppendCurrentKF()
  DELUnvOBJECTS()
  set the HotRect of the CreditClose of gOBJECTS to the POPHOTRECT of the CreditClose of gOBJECTS
  set the hotState of the CreditClose of gOBJECTS to #popUp
  ADDObjects([#TheCredits])
end

on CloseCredits
  if the hotState of the CreditClose of gOBJECTS = #popUp then
    Delobjects([#TheCredits])
    setaProp(getaProp(gOBJECTS, #TheCredits), #State, #MAIN)
    ReinstateCurrentKF()
    updateStage()
    exit
  else
    set obj to getaProp(gOBJECTS, #TheCredits)
    set the loc of sprite getaProp(obj, #spriteNum) to getaProp(obj, #loc)
    set the castNum of sprite getaProp(obj, #spriteNum) to getaProp(getaProp(obj, #cast), #HI)
    updateStage()
    set the loc of sprite sQTCharSprite to getaProp(gCreditTemplist, #VideoLoc)
    Delobjects([#TheCredits])
    set gHotRects to getaProp(gCreditTemplist, #Hotrects)
    setaProp(obj, #State, #MAIN)
    set gTimerList to getaProp(gCreditTemplist, #timer)
    set the movieRate of sprite sQTCharSprite to getaProp(gCreditTemplist, #VideoRate)
  end if
end

on CreditChange Mode
  set obj to getaProp(gOBJECTS, #TheCredits)
  set OBJS to getaProp(getaProp(obj, #SpecialChild), getaProp(obj, #State))
  if the shiftDown and (Mode = #MAINIT) then
    set gGlobal to 1
  end if
  if not voidp(OBJS) then
    Delobjects(OBJS)
  end if
  setaProp(obj, #State, Mode)
  SetgHotrects(obj)
  set OBJS to getaProp(getaProp(obj, #SpecialChild), Mode)
  if not voidp(OBJS) then
    ADDObjects(OBJS)
  end if
  set the castNum of sprite getaProp(obj, #spriteNum) to getaProp(getaProp(obj, #cast), Mode)
end